home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Src Code / ERRBARED.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  3.3 KB  |  114 lines
  1. {**********************************************}
  2. {   TErrorBarSeries Component Editor Dialog    }
  3. {   Copyright (c) 1996-98 by David Berneda     }
  4. {**********************************************}
  5. {$I teedefs.inc}
  6. unit ErrBarEd;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,Chart,Series, ErrorBar
  13.   {$IFDEF D1}
  14.   , TeeUpDow, Spin
  15.   {$ELSE}
  16.   , ComCtrls
  17.   {$ENDIF};
  18.  
  19. type
  20.   TErrorSeriesEditor = class(TForm)
  21.     SEBarwidth: TEdit;
  22.     Label1: TLabel;
  23.     BPen: TButton;
  24.     RGWidthUnit: TRadioGroup;
  25.     UDBarWidth: TUpDown;
  26.     RGStyle: TRadioGroup;
  27.     CBColorEach: TCheckBox;
  28.     procedure FormShow(Sender: TObject);
  29.     procedure SEBarwidthChange(Sender: TObject);
  30.     procedure BPenClick(Sender: TObject);
  31.     procedure RGWidthUnitClick(Sender: TObject);
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure RGStyleClick(Sender: TObject);
  34.     procedure CBColorEachClick(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.     CreatingForm:Boolean;
  38.   public
  39.     { Public declarations }
  40.     ErrorSeries:TCustomErrorSeries;
  41.   end;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46. Uses PenDlg,BrushDlg,BarEdit,TeeConst
  47.      {$IFDEF D1}
  48.      ,IEdit16
  49.      {$ELSE}
  50.      ,IEdiSeri
  51.      {$ENDIF};
  52.  
  53. procedure TErrorSeriesEditor.FormShow(Sender: TObject);
  54. begin
  55.   Screen.Cursor:=crDefault;
  56.   ErrorSeries:=TCustomErrorSeries(Tag);
  57.   With ErrorSeries do
  58.   begin
  59.     UDBarWidth.Position:=ErrorWidth;
  60.     if ErrorWidthUnits=ewuPercent then RGWidthUnit.ItemIndex:=0
  61.                                   else RGWidthUnit.ItemIndex:=1;
  62.     RGStyle.Visible:=ErrorSeries is TErrorSeries;
  63.     if RGStyle.Visible then RGStyle.ItemIndex:=Ord(ErrorStyle);
  64.     CBColorEach.Checked:=ColorEachPoint;
  65.   end;
  66.   if ErrorSeries is TErrorBarSeries then { trick }
  67.      {$IFDEF D1}
  68.      (GetOwnerForm(Parent) as TChartEditForm).InsertSeriesForm( TBarSeriesEditor,
  69.                                                         1,TeeMsg_GalleryBar,
  70.                                                         ErrorSeries);
  71.      {$ELSE}
  72.      (Parent.Owner as TFormTeeSeries).InsertSeriesForm( TBarSeriesEditor,
  73.                                                         1,TeeMsg_GalleryBar,
  74.                                                         ErrorSeries);
  75.      {$ENDIF}
  76.   CreatingForm:=False;
  77. end;
  78.  
  79. procedure TErrorSeriesEditor.SEBarwidthChange(Sender: TObject);
  80. begin
  81.   if not CreatingForm then ErrorSeries.ErrorWidth:=UDBarWidth.Position;
  82. end;
  83.  
  84. procedure TErrorSeriesEditor.BPenClick(Sender: TObject);
  85. begin
  86.   EditChartPen(Self,ErrorSeries.ErrorPen);
  87.   With ErrorSeries do SeriesColor:=ErrorPen.Color;
  88. end;
  89.  
  90. procedure TErrorSeriesEditor.RGWidthUnitClick(Sender: TObject);
  91. begin
  92.   ErrorSeries.ErrorWidthUnits:=TErrorWidthUnits(RGWidthUnit.ItemIndex);
  93. end;
  94.  
  95. procedure TErrorSeriesEditor.FormCreate(Sender: TObject);
  96. begin
  97.   CreatingForm:=True;
  98. end;
  99.  
  100. procedure TErrorSeriesEditor.RGStyleClick(Sender: TObject);
  101. begin
  102.   if not CreatingForm then
  103.      ErrorSeries.ErrorStyle:=TErrorSeriesStyle(RGStyle.ItemIndex);
  104. end;
  105.  
  106. procedure TErrorSeriesEditor.CBColorEachClick(Sender: TObject);
  107. begin
  108.   ErrorSeries.ColorEachPoint:=CBColorEach.Checked;
  109. end;
  110.  
  111. initialization
  112.   RegisterClass(TErrorSeriesEditor);
  113. end.
  114.